home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / +look_here_1st!+ / reader_requests / alienbreed3d2 / new3dtexture.s < prev    next >
Text File  |  1997-11-28  |  20KB  |  1,290 lines
  1.  
  2. * the 'Hello World' program in 68000 Assembler
  3. * the C version can be found in the Intuition manual
  4.  
  5. * this source code (C) HiSoft 1992 All Rights Reserved
  6.  
  7. * for Devpac Amiga Version 2 the following symbols were changed
  8. * to avoid clashes with the new include files:
  9. * Screen->MyScreen, NewScreen->MyNewScreen
  10. * Window->MyWindow, NewWindow->MyNewWindow
  11.  
  12.     opt    c+,d+
  13.  
  14.     include    workbench:utilities/devpac/system            use pre-assembled header
  15.     include    exec/exec_lib.i
  16.     include    intuition/intuition.i
  17.     include    intuition/intuition_lib.i
  18.     include    graphics/graphics_lib.i
  19.     include    graphics/text.i
  20.  
  21. INTUITION_REV    equ    31        v1.1
  22. GRAPHICS_REV    equ    31        v1.1
  23.  
  24. * Open the intuition library
  25.  
  26.     moveq    #100,d4            default error return code
  27.  
  28.     moveq    #INTUITION_REV,d0    version
  29.     lea    int_name(pc),a1
  30.     CALLEXEC OpenLibrary
  31.     tst.l    d0
  32.     beq    exit_false        if failed then quit
  33.     move.l    d0,_IntuitionBase    else save the pointer
  34.  
  35.     moveq    #GRAPHICS_REV,d0
  36.     lea    graf_name(pc),a1
  37.     CALLEXEC OpenLibrary
  38.     tst.l    d0
  39. ;    beq    exit_closeint        if failed then close Int, exit
  40.     move.l    d0,_GfxBase
  41.  
  42.     lea    MyNewScreen(pc),a0
  43.     CALLINT    OpenScreen        open a screen
  44.     tst.l    d0
  45. ;    beq    exit_closeall        if failed the close both, exit
  46.     move.l    d0,MyScreen
  47.  
  48.     move.l MyScreen,a0
  49.     lea sc_BitMap(a0),a0
  50.     lea bm_Planes(a0),a0
  51.     move.l #RAWSCRN,(a0)
  52.     move.l #RAWSCRN+10240,4(a0)
  53.     move.l #RAWSCRN+10240*2,8(a0)
  54.     move.l #RAWSCRN+10240*3,12(a0)
  55.     move.l #RAWSCRN+10240*4,16(a0)
  56.     move.l #RAWSCRN+10240*5,20(a0)
  57.     move.l #RAWSCRN+10240*6,24(a0)
  58.     move.l #RAWSCRN+10240*7,28(a0)
  59.  
  60. * now initialise a NewWindow structure. This is normally easier to
  61. * do with dc.w/dc.l statement etc, but for comparison with the C
  62. * version we do it like this
  63.     lea    MyNewWindow(pc),a0    good place to start
  64.     move.w    #20,nw_LeftEdge(a0)
  65.     move.w    #20,nw_TopEdge(a0)
  66.     move.w    #300,nw_Width(a0)
  67.     move.w    #100,nw_Height(a0)
  68.     move.b    #0,nw_DetailPen(a0)
  69.     move.b    #1,nw_BlockPen(a0)
  70.     move.l    #window_title,nw_Title(a0)
  71. _temp    set    WINDOWCLOSE!SMART_REFRESH!ACTIVATE!WINDOWSIZING
  72.     move.l    #_temp!WINDOWDRAG!WINDOWDEPTH,nw_Flags(a0)
  73.     move.l    #CLOSEWINDOW,nw_IDCMPFlags(a0)
  74.     move.w    #CUSTOMSCREEN,nw_Type(a0)
  75.     clr.l    nw_FirstGadget(a0)
  76.     clr.l    nw_CheckMark(a0)
  77.     move.l    MyScreen(pc),nw_Screen(a0)
  78.     clr.l    nw_BitMap(a0)
  79.     move.w    #100,nw_MinWidth(a0)
  80.     move.w    #25,nw_MinHeight(a0)
  81.     move.w    #640,nw_MaxWidth(a0)
  82.     move.w    #200,nw_MaxHeight(a0)
  83.  
  84. * thats it set up, now open the window (a0=NewWindow already)
  85. ;    CALLINT    OpenWindow
  86. ;    tst.l    d0
  87. ;    beq    exit_closescr            if failed
  88. ;    move.l    d0,MyWindow            save it
  89. ;
  90. ;    move.l    d0,a1                window
  91. ;    move.l    wd_RPort(a1),a1            rastport
  92. ;    moveq    #20,d0                X
  93. ;    moveq    #20,d1                Y
  94. ;    CALLGRAF Move                move the cursor
  95. ;
  96. ;    move.l    MyWindow(pc),a0
  97. ;    move.l    wd_RPort(a0),a1            rastport
  98. ;    lea    hello_message(pc),a0
  99. ;    moveq    #11,d0
  100. ;    CALLGRAF Text                print something
  101. ;
  102. ;    move.l    MyWindow(pc),a0
  103. ;    move.l    wd_UserPort(a0),a0
  104. ;    move.b    MP_SIGBIT(a0),d1        (misprint in manual)
  105. ;    moveq    #0,d0
  106. ;    bset    d1,d0                do a shift
  107. ;    CALLEXEC Wait
  108.  
  109. ;    moveq    #0,d4                return code
  110.  
  111. * various exit routines that do tidying up, given a return code in d4
  112.  
  113. ;    move.l    MyWindow(pc),a0
  114. ;    CALLINT CloseWindow
  115.  
  116. ;exit_closescr
  117. ;    move.l    MyScreen(pc),a0
  118. ;    CALLINT CloseScreen
  119.  
  120. ;exit_closeall
  121. ;    move.l    _GfxBase(pc),a1
  122. ;    CALLEXEC CloseLibrary
  123.  
  124. ;exit_closeint
  125. ;    move.l    _IntuitionBase(pc),a1
  126. ;    CALLEXEC CloseLibrary
  127.  
  128. ;done:
  129. ;    bra done
  130.  
  131.  move.l #PALETTEBIT,a0
  132.  move.l #COPIEDPAL+4,a1
  133.  move.w #255,d0
  134.  
  135. copydown:
  136.  move.b 1(a0),(a1)
  137.  move.b 3(a0),4(a1)
  138.  move.b 5(a0),8(a1)
  139.  add.w #6,a0
  140.  add.w #12,a1
  141.  dbra d0,copydown
  142.  
  143.  move.w #256,COPIEDPAL
  144.  move.w #0,COPIEDPAL+2
  145. LOOKFORME:
  146.  move.l MyScreen,a0
  147.  lea sc_ViewPort(a0),a0
  148.  move.l #COPIEDPAL,a1
  149.  move.l _GfxBase,a6
  150.  jsr -$372(a6)
  151.  
  152.  move.l MyScreen,a4
  153.  move.w sc_MouseX(a4),d0
  154.  move.w sc_MouseY(a4),d1
  155.  move.w d0,OLDXM
  156.  move.w d1,OLDYM
  157.     
  158. loop:
  159.  
  160.  move.l MyScreen,a4
  161.  move.w sc_MouseX(a4),d0
  162.  move.w sc_MouseY(a4),d1
  163.  
  164.  sub.w OLDXM,d0
  165.  sub.w OLDYM,d1
  166.  add.w d0,OLDXM
  167.  add.w d1,OLDYM
  168.  
  169.  btst #6,$bfe001
  170.  beq.s .SHIFTABOUT
  171.  
  172.  
  173.  
  174.  muls #8190,d0
  175.  divs #320,d0
  176.  add.w d0,YANG
  177.  and.w #8190,YANG
  178.  muls #8190,d1
  179.  divs #320,d1
  180.  and.w #8190,d1
  181.  add.w d1,XANG
  182.  and.w #8190,XANG
  183.  bra .ROTABOUT
  184. .SHIFTABOUT
  185.  
  186.  add.w d0,XOFF
  187.  add.w d1,ZOFF
  188.  
  189.  
  190. .ROTABOUT
  191.  
  192.  move.l #POLYGONDATA,a0
  193.  move.w (a0)+,d7    ; number of polys
  194. POLYGONLOOP:
  195.  move.l d7,-(a7)
  196.  
  197.  move.w (a0)+,TEXTUREADD
  198.  
  199.  move.w XANG,d1
  200.  move.w YANG,d3
  201.  move.l #SINETABLE,a1
  202.  move.l #ROTATEDPTS,a2
  203.  move.l #UVCOORDS,a3
  204.  move.w (a1,d1.w),XSIN    ;xsin
  205.  move.w (a1,d3.w),YSIN    ;ysin
  206.  
  207.  add.w #2048,a1
  208.  move.w (a1,d1.w),XCOS    ;xcos
  209.  move.w (a1,d3.w),YCOS    ;ycos
  210.  
  211.  moveq #3,d7
  212. ROTPTLOP:
  213.  
  214.  move.w (a0)+,d0
  215.  move.w d0,d3
  216.  move.w (a0)+,d1
  217.  move.w (a0)+,d2
  218.  move.w d2,d5
  219.  
  220.  muls YCOS,d0
  221.  muls YSIN,d2
  222.  sub.l d2,d0
  223.  asr.l #6,d0    ; new x*512
  224.  
  225.  muls YSIN,d3
  226.  muls YCOS,d5
  227.  add.l d5,d3
  228.  add.l d3,d3
  229.  swap d3
  230.  move.w d3,d2    ; new z
  231.  
  232.  move.w d1,d4
  233.  move.w d2,d5
  234.  muls XCOS,d1
  235.  muls XSIN,d2
  236.  sub.l d2,d1
  237.  asr.l #6,d1    ; new y*512
  238.  
  239.  muls XSIN,d4
  240.  muls XCOS,d5
  241.  add.l d5,d4
  242.  add.l d4,d4
  243.  swap d4
  244.  move.w d4,d2    ; new z
  245.  
  246.  
  247.  add.w ZOFF,d2
  248.  ext.l d2
  249.  
  250.  move.w XOFF,d5
  251.  ext.l d5
  252.  asl.l #8,d5
  253.  add.l d5,d5
  254.  add.l d5,d0
  255.  
  256.  move.l d0,(a2)+
  257.  move.l d1,(a2)+
  258.  move.l d2,(a2)+
  259.  addq #4,a2
  260.  
  261.  move.l (a0)+,(a3)+
  262.  
  263.  dbra d7,ROTPTLOP
  264.  
  265.  move.l a0,-(a7)
  266.  
  267.  moveq #3,d7
  268.  move.l #ROTATEDPTS,a0
  269.  move.l #ONSCREENPTS,a1
  270.  move.l FASTBUFFER,a2
  271. CONVTOSCREEN:
  272.  move.l (a0)+,d0
  273.  move.l (a0)+,d1
  274.  move.l (a0)+,d2
  275.  addq #4,a0  
  276.  
  277.  divs d2,d0
  278.  divs d2,d1
  279.  add.w #160*4,d0
  280.  add.w #128*4,d1
  281.  move.w d0,(a1)+
  282.  move.w d1,(a1)+
  283.  
  284. ; ext.l d0
  285. ; ext.l d1
  286. ; asr.l #2,d0
  287. ; and.b #%11111100,d1
  288. ; asl.l #4,d1
  289. ; move.l d1,d2
  290. ; asl.l #2,d1
  291. ; add.l d2,d1
  292. ; add.l d1,d0
  293. ;
  294. ; move.b #255,(a2,d0.l)
  295.  
  296.  dbra d7,CONVTOSCREEN
  297.  
  298.  move.l #ONSCREENPTS,a1
  299.  move.w (a1),d0    ;x1
  300.  sub.w 4(a1),d0
  301.  move.w 8(a1),d2
  302.  sub.w 4(a1),d2
  303.  
  304.  
  305.  move.w 2(a1),d1    ;x1
  306.  sub.w 6(a1),d1
  307.  move.w 10(a1),d3
  308.  sub.w 6(a1),d3
  309.  
  310.  muls d2,d1
  311.  muls d0,d3
  312.  sub.l d3,d1
  313.  ble NOPOLYGON
  314.  
  315. *****************************
  316. * Calculate the light map
  317.  move.l #LIGHTMAP,a0
  318.  move.l #WORLD,a1
  319.  move.l #ROTATEDPTS,a2
  320.  move.l #0,d7
  321. ACROSS:
  322.  move.w #0,d6
  323.  move.l (0*16)(a2),d0
  324.  move.l (1*16)(a2),d3
  325.  sub.l d0,d3
  326.  move.l 4+(0*16)(a2),d1
  327.  move.l 4+(1*16)(a2),d4
  328.  sub.l d1,d4
  329.  move.l 8+(0*16)(a2),d2
  330.  move.l 8+(1*16)(a2),d5
  331.  sub.l d2,d5
  332.  muls.l d7,d3
  333.  muls.l d7,d4
  334.  muls.l d7,d5
  335.  asr.l #3,d3
  336.  asr.l #3,d4
  337.  asr.l #3,d5
  338.  add.l d3,d0    ;tx
  339.  add.l d4,d1    ;ty
  340.  add.l d5,d2    ;tz
  341.  
  342.  move.l 3*16(a2),d3
  343.  move.l 2*16(a2),d6
  344.  sub.l d3,d6
  345.  muls.l d7,d6
  346.  asr.l #3,d6
  347.  add.l d6,d3
  348.  
  349.  move.l 4+(3*16)(a2),d4
  350.  move.l 4+(2*16)(a2),d6
  351.  sub.l d4,d6
  352.  muls.l d7,d6
  353.  asr.l #3,d6
  354.  add.l d6,d4
  355.  
  356.  move.l 8+(3*16)(a2),d5
  357.  move.l 8+(2*16)(a2),d6
  358.  sub.l d5,d6
  359.  muls.l d7,d6
  360.  asr.l #3,d6
  361.  add.l d6,d5
  362.  
  363.  asr.l #8,d0
  364.  asr.l #8,d1
  365.  asr.l #8,d3
  366.  asr.l #8,d4
  367.  asr.l #1,d0
  368.  asr.l #1,d1
  369.  asr.l #1,d3
  370.  asr.l #1,d4
  371.  
  372.  sub.l d0,d3
  373.  sub.l d1,d4
  374.  sub.l d2,d5
  375.  sub.w #512,d2
  376.  
  377.  swap d3
  378.  clr.w d3
  379.  swap d4
  380.  clr.w d4
  381.  swap d2
  382.  clr.w d2
  383.  swap d0
  384.  clr.w d0
  385.  swap d1
  386.  clr.w d1
  387.  swap d5
  388.  clr.w d5
  389.  asr.l #8,d5
  390.  asr.l #5,d2
  391.  asr.l #8,d3
  392.  asr.l #5,d0
  393.  asr.l #8,d4
  394.  asr.l #5,d1
  395.  move.l d3,XADD
  396.  move.l d4,YADD
  397.  move.l d5,ZADD
  398.  add.l #20*65536,d0
  399.  add.l lmxoff,d0
  400.  
  401.  add.l #20*65536,d1
  402.  add.l #20*65536,d2
  403.  
  404.  move.w #0,d6 
  405.  
  406. DOWN:
  407.  
  408.  add.l XADD,d0
  409.  add.l YADD,d1
  410.  add.l ZADD,d2
  411.  
  412.  move.l d0,d3
  413.  cmp.l #40*65536,d3
  414.  blt.s .oksm
  415.  sub.l #40*65536,d3
  416. .oksm:
  417.  move.l d1,d4
  418.  move.l d2,d5
  419.  
  420.  swap d3
  421.  swap d4
  422.  swap d5
  423.  
  424.  muls #40,d5
  425.  add.w d5,d4
  426.  muls #40,d4
  427.  ext.l d3
  428.  add.l d4,d3
  429.  
  430.  move.w d6,d4
  431.  move.w d7,d5
  432.  asl.w #4,d5
  433.  add.w d4,d5
  434.  
  435.  move.l d7,-(a7)
  436.  lea (a1,d3.l),a5
  437.  
  438.  moveq #0,d3
  439.  moveq #0,d4
  440.  move.b (a5),d3        ;x,y,z
  441.  move.b 1(a5),d4    ;x+1,y,z
  442.  sub.w d3,d4
  443.  bge.s .okp1
  444.  neg.w d4
  445.  mulu d0,d4
  446.  neg.l d4
  447.  bra.s .dn1
  448. .okp1
  449.  mulu d0,d4
  450. .dn1
  451.  swap d4
  452.  add.w d4,d3
  453.  
  454.  moveq #0,d4
  455.  moveq #0,d5
  456.  move.b 40(a5),d4    ;x,y+1,z
  457.  move.b 41(a5),d5    ;x+1,y+1,z
  458.  sub.w d4,d5
  459.  bge.s .okp2
  460.  neg.w d5
  461.  mulu d0,d5
  462.  neg.l d5
  463.  bra.s .dn2
  464. .okp2
  465.  mulu d0,d5
  466. .dn2
  467.  swap d5
  468.  add.w d5,d4
  469.  
  470.  sub.w d3,d4
  471.  bge.s .okp5
  472.  neg.w d4
  473.  mulu d1,d4
  474.  neg.l d4
  475.  bra.s .dn5
  476. .okp5
  477.  mulu d1,d4
  478. .dn5
  479.  swap d4
  480.  add.w d4,d3
  481.  
  482.  moveq #0,d4
  483.  moveq #0,d5
  484.  move.b 1600(a5),d4        ;x,y,z
  485.  move.b 1601(a5),d5    ;x+1,y,z
  486.  sub.w d4,d5
  487.  bge.s .okp3
  488.  neg.w d5
  489.  mulu d0,d5
  490.  neg.l d5
  491.  bra.s .dn3
  492. .okp3
  493.  mulu d0,d5
  494. .dn3
  495.  swap d5
  496.  add.w d5,d4
  497.  
  498.  moveq #0,d5
  499.  moveq #0,d7
  500.  move.b 1640(a5),d5    ;x,y+1,z
  501.  move.b 1641(a5),d7    ;x+1,y+1,z
  502.  sub.w d5,d7
  503.  bge.s .okp4
  504.  neg.w d7
  505.  mulu d0,d7
  506.  neg.l d7
  507.  bra.s .dn4
  508. .okp4
  509.  mulu d0,d7
  510. .dn4
  511.  swap d7
  512.  add.w d7,d5
  513.  
  514.  sub.w d4,d5
  515.  bge.s .okp6
  516.  neg.w d5
  517.  mulu d1,d5
  518.  neg.l d5
  519.  bra.s .dn6
  520. .okp6
  521.  mulu d1,d5
  522. .dn6
  523.  swap d5
  524.  add.w d5,d4
  525.  
  526.  sub.w d3,d4
  527.  bge.s .okp7
  528.  neg.w d4
  529.  mulu d2,d4
  530.  neg.l d4
  531.  bra.s .dn7
  532. .okp7
  533.  mulu d2,d4
  534. .dn7
  535.  swap d4
  536.  add.w d4,d3
  537.  
  538.  move.l (a7)+,d7
  539.  move.w d6,d4
  540.  move.w d7,d5
  541.  asl.w #4,d5
  542.  add.w d4,d5
  543.  
  544.  lsr.b #2,d3
  545.  move.b d3,(a0,d5.w)
  546.  
  547.  
  548.  addq #1,d6
  549.  cmp.w #8,d6
  550.  ble DOWN
  551.  addq #1,d7
  552.  cmp.w #8,d7
  553.  ble ACROSS
  554.  
  555.  move.l #LIGHTMAP,a0
  556.  move.l #SMOOTHLIGHTMAP,a1
  557.  move.w #7,d0
  558. DOWNSQUARES:
  559.  swap d0
  560.  move.w #7,d0
  561.  move.l a0,a2
  562. ACROSSSQUARES:
  563.  moveq #0,d4
  564.  move.b 16(a0),d4    ;bl
  565.  moveq #0,d2
  566.  move.b (a0)+,d2    ;tl
  567.  moveq #0,d3
  568.  move.b (a0),d3        ;tr
  569.  moveq #0,d5
  570.  move.b 16(a0),d5    ;br
  571.  sub.w d2,d3
  572.  sub.w d4,d5
  573.  swap d2
  574.  swap d3
  575.  swap d4
  576.  swap d5
  577.  
  578.  asr.l #3,d3
  579.  asr.l #3,d5
  580.  moveq #7,d7
  581. ACROSSSQUARE
  582.  move.l d2,d1
  583.  move.l d4,d6
  584.  sub.l d1,d6
  585.  asr.l #3,d6
  586.  
  587.  swap d1
  588.  move.b d1,(a1)+
  589.  swap d1
  590.  add.l d6,d1
  591.  swap d1
  592.  move.b d1,64-1(a1)
  593.  swap d1
  594.  add.l d6,d1
  595.  swap d1
  596.  move.b d1,64*2-1(a1)
  597.  swap d1
  598.  add.l d6,d1
  599.  swap d1
  600.  move.b d1,64*3-1(a1)
  601.  swap d1
  602.  add.l d6,d1
  603.  swap d1
  604.  move.b d1,64*4-1(a1)
  605.  swap d1
  606.  add.l d6,d1
  607.  swap d1
  608.  move.b d1,64*5-1(a1)
  609.  swap d1
  610.  add.l d6,d1
  611.  swap d1
  612.  move.b d1,64*6-1(a1)
  613.  swap d1
  614.  add.l d6,d1
  615.  swap d1
  616.  move.b d1,64*7-1(a1)
  617.  
  618.  add.l d3,d2
  619.  add.l d5,d4
  620.  dbra d7,ACROSSSQUARE
  621.  
  622.  dbra d0,ACROSSSQUARES
  623.  add.w #16,a0
  624.  add.w #64*7,a1
  625.  swap d0
  626.  dbra d0,DOWNSQUARES
  627. *****************************
  628.  
  629.  
  630.  move.l #LEFTRIGHT,a0
  631.  move.w #15,d0
  632. emptyright:
  633.  move.l #-1,(a0)+
  634.  move.l #-1,(a0)+
  635.  move.l #-1,(a0)+
  636.  move.l #-1,(a0)+
  637.  move.l #-1,(a0)+
  638.  move.l #-1,(a0)+
  639.  move.l #-1,(a0)+
  640.  move.l #-1,(a0)+
  641.  move.l #-1,(a0)+
  642.  move.l #-1,(a0)+
  643.  move.l #-1,(a0)+
  644.  move.l #-1,(a0)+
  645.  move.l #-1,(a0)+
  646.  move.l #-1,(a0)+
  647.  move.l #-1,(a0)+
  648.  move.l #-1,(a0)+
  649.  dbra d0,emptyright
  650.  
  651.  move.w #0,d0
  652.  move.w #1,d1
  653.  bsr CALCLINE
  654.  move.w #1,d0
  655.  move.w #2,d1
  656.  bsr CALCLINE
  657.  move.w #2,d0
  658.  move.w #3,d1
  659.  bsr CALCLINE
  660.  move.w #3,d0
  661.  move.w #0,d1
  662.  bsr CALCLINE
  663.  
  664.  move.l #LEFTRIGHT,a0
  665.  move.l FASTBUFFER,a1
  666.  move.l #LEFTUVS,a3
  667.  move.l #TEXTURES,a5
  668.  move.w TEXTUREADD,d0
  669.  move.l #TWEEN,a6
  670.  bge.s .okad
  671.  add.l #65536,a5
  672.  and.w #$7fff,d0
  673. .okad:
  674.  add.w d0,a5
  675.  move.w #255,d7
  676. drawpoly:
  677.  move.w (a0)+,d0    ;left end*4
  678.  move.w (a0)+,d1    ; right end*4
  679.  blt nolineh
  680.  asr.w #2,d0
  681.  blt nolineh
  682.  asr.w #2,d1
  683.  sub.w d0,d1
  684.  blt nolineh
  685.  
  686.  move.l (a3),d2
  687.  move.l 4(a3),d3
  688.  move.l (RIGHTUVS-LEFTUVS)(a3),d4
  689.  move.l 4+(RIGHTUVS-LEFTUVS)(a3),d5
  690.  
  691.  sub.l d2,d4
  692.  sub.l d3,d5
  693.  addq #1,d1
  694.  ext.l d1
  695.  divs.l d1,d4
  696.  divs.l d1,d5
  697.  move.l d4,a4
  698.  movem.l d7/a1/a3,-(a7)
  699.  move.l d5,a3
  700.  subq #1,d1
  701.  moveq #0,d4
  702.  
  703.  lea (a1,d0.w),a1
  704.  
  705.  move.l #LIGHTMAP,a2
  706.  
  707.  move.l d2,d5
  708.  swap d5
  709.  and.b #%11111000,d5
  710.  add.w d5,d5
  711.  move.l d3,d6
  712.  swap d6
  713.  asr.w #3,d6
  714.  add.w d6,d5
  715.  
  716.  move.w 16(a2,d5.w),d6
  717.  swap d6
  718.  move.w (a2,d5.w),d6
  719.  
  720. ; move.l (a2,d5.w*2),d6
  721. ; move.l 32(a2,d5.w*2),d7
  722. ; sub.w d6,d7
  723. ; swap d6
  724. ; swap d7
  725. ; sub.w d6,d7
  726.  
  727. DOING:
  728.  
  729. .putline:
  730.  swap d1
  731.  
  732.  move.l d2,d0
  733.  swap d0
  734.  and.b #%11111000,d0
  735.  add.w d0,d0
  736.  move.l d3,d4
  737.  swap d4
  738.  asr.w #3,d4
  739.  add.w d4,d0
  740.  
  741.  cmp.w d0,d5
  742.  beq.s .noread
  743.  move.w d0,d5
  744.  move.w 16(a2,d5.w),d6    ;tr,br
  745.  swap d6
  746.  move.w (a2,d5.w),d6    ;tl,bl
  747.  
  748. ; move.l (a2,d5.w*2),d6
  749. ; move.l 32(a2,d5.w*2),d7
  750. ; sub.w d6,d7
  751. ; swap d6
  752. ; swap d7
  753. ; sub.w d6,d7
  754. .noread:
  755.  
  756.  move.l d3,d0
  757.  swap d0
  758.  asl.l #5,d0
  759.  and.w #%11100000,d0
  760.  move.w d0,d7
  761.  add.w d6,d0
  762.  move.w (a6,d0.w*2),d4
  763.  swap d6
  764.  add.w d6,d7
  765.  swap d6
  766.  move.b (a6,d7.w*2),d4
  767.  
  768.  move.l d2,d0
  769.  swap d0
  770.  asl.l #5,d0
  771.  and.w #%11100000,d0
  772.  add.w d0,d4
  773.  move.w (a6,d4.w*2),d4
  774.  
  775. ; move.w d0,d4
  776. ; muls d7,d0
  777. ; asr.w #3,d0
  778. ; add.w d6,d0    ; top bright
  779. ; 
  780. ; swap d7
  781. ; swap d6
  782. ; muls d7,d4
  783. ; asr.w #3,d4
  784. ; add.w d6,d4    ; bot bright
  785. ; swap d7
  786. ; swap d6
  787. ;
  788. ; sub.w d0,d4    ;bot-top
  789. ; move.w d4,d1
  790. ;
  791. ; move.l d3,d4
  792. ; swap d4
  793. ; and.b #%111,d4
  794. ; muls d1,d4
  795. ; asr.w #3,d4
  796. ; add.w d0,d4
  797. ; lsl.w #8,d4
  798.  
  799.  move.l d2,d0
  800.  swap d3
  801.  move.w d3,d0
  802.  lsl.w #8,d0
  803.  lsr.l #8,d0
  804.  swap d3
  805.  move.b (a5,d0.w*4),d4
  806.  move.b TEXTUREPAL(pc,d4.w),(a1)+
  807.  add.l a4,d2
  808.  add.l a3,d3
  809.  swap d1
  810.  dbra d1,.putline
  811.  
  812.  movem.l (a7)+,d7/a1/a3
  813. nolineh
  814.  add.w #320,a1
  815.  add.w #16,a3
  816.  dbra d7,drawpoly
  817.  bra PASTIT
  818.  
  819. TEXTUREPAL: incbin "ab3:includes/newtexturemaps.pal"
  820.  
  821. PASTIT:
  822. NOPOLYGON:
  823.  move.l (a7)+,a0
  824.  move.l (a7)+,d7
  825.  dbra d7,POLYGONLOOP
  826.  
  827.  
  828.  move.l FASTBUFFER,a0
  829.  add.l #40*320,a0
  830.  move.l #RAWSCRN+40*40,a1
  831.  move.l #(320/8)-1,d0
  832.  move.l #175,d1
  833.  move.w #0,d2
  834.  move.w #0,d3
  835.  moveq #0,d4
  836.  moveq #0,d5
  837. donebigconv
  838.  jsr CHUNKYTOPLANAR 
  839.  
  840.  move.l FASTBUFFER,a0
  841.  add.l #40*320,a0
  842.  
  843.  move.w #((320*176)/64)-1,d0
  844.  moveq #0,d1
  845. clrchunk:
  846.  move.l d1,(a0)+
  847.  move.l d1,(a0)+
  848.  move.l d1,(a0)+
  849.  move.l d1,(a0)+
  850.  move.l d1,(a0)+
  851.  move.l d1,(a0)+
  852.  move.l d1,(a0)+
  853.  move.l d1,(a0)+
  854.  move.l d1,(a0)+
  855.  move.l d1,(a0)+
  856.  move.l d1,(a0)+
  857.  move.l d1,(a0)+
  858.  move.l d1,(a0)+
  859.  move.l d1,(a0)+
  860.  move.l d1,(a0)+
  861.  move.l d1,(a0)+
  862.  dbra d0,clrchunk
  863.  
  864.  
  865.     btst #7,$bfe001
  866.     beq.s exit_closescr
  867.  
  868.  
  869.     add.l #$2000,lmxoff
  870.     cmp.l #40*65536,lmxoff
  871.     blt.s .oksm
  872.     sub.l #40*65536,lmxoff    
  873. .oksm
  874.  
  875.     bra loop
  876.     
  877. lmxoff: dc.l 0
  878.  
  879. exit_closescr
  880.     move.l    MyScreen(pc),a0
  881.     CALLINT CloseScreen
  882.  
  883. exit_closeall
  884.     move.l    _GfxBase(pc),a1
  885.     CALLEXEC CloseLibrary
  886.  
  887. exit_closeint
  888.     move.l    _IntuitionBase(pc),a1
  889.     CALLEXEC CloseLibrary
  890.  
  891. exit_false
  892.     move.l    #0,d0                return code
  893.     rts
  894.     
  895. XCOS: dc.w 0
  896. YCOS: dc.w 0
  897. XSIN: dc.w 0
  898. YSIN: dc.w 0
  899. XADD: dc.l 0
  900. YADD: dc.l 0
  901. ZADD: dc.l 0
  902. XOFF: dc.w 0
  903. YOFF: dc.w 0
  904. OLDXM: dc.w 0
  905. OLDYM: dc.w 0
  906.  
  907. TEXTUREADD: dc.w 0
  908.  
  909. CALCLINE:
  910.  
  911.  moveq #0,d2
  912.  moveq #0,d3
  913.  moveq #0,d4
  914.  moveq #0,d5
  915.  move.l #UVCOORDS,a0
  916.  move.w (a0,d0.w*4),d2
  917.  swap d2
  918.  move.w 2(a0,d0.w*4),d3
  919.  swap d3
  920.  move.w (a0,d1.w*4),d4
  921.  swap d4
  922.  move.w 2(a0,d1.w*4),d5
  923.  swap d5
  924.  
  925.  move.l #ONSCREENPTS,a1
  926.  move.w 2(a1,d0.w*4),d6    ; ly
  927.  move.w 2(a1,d1.w*4),d7    ; ry
  928.  
  929.  asr.w #2,d6
  930.  move.l #LEFTRIGHT+2,a2
  931.  move.l #RIGHTUVS,a3
  932.  asr.w #2,d7
  933.  cmp.w d6,d7
  934.  beq .noline
  935.  bgt.s .lineonright
  936. .lineonleft:
  937.  move.l #LEFTUVS,a3
  938.  subq #2,a2
  939.  exg d6,d7
  940.  exg d0,d1
  941.  exg d2,d4
  942.  exg d3,d5 
  943.  
  944. ***********
  945. * THROW AWAY ABOVE FOR NOW.
  946. ***********
  947. .lineonright:
  948.  sub.w d6,d7
  949.  lea (a2,d6.w*4),a2
  950.  
  951.  movem.l d0-d7/a0-a6,-(a7)
  952.  move.l #SUBSTACK,a0
  953.  asl.w #2,d0
  954.  asl.w #2,d1
  955.  move.l #ROTATEDPTS,a1
  956.  move.l a0,a2
  957.  move.l 4(a1,d0.w*4),(a2)+    ;ty
  958.  move.l 8(a1,d0.w*4),(a2)+    ;tz
  959.  move.l 4(a1,d1.w*4),(a2)+    ;by
  960.  move.l 8(a1,d1.w*4),(a2)+    ;bz
  961.  move.l d2,(a2)+        ;tu
  962.  move.l d3,(a2)+        ;tv
  963.  move.l d4,(a2)+        ;bu
  964.  move.l d5,(a2)+        ;bv
  965.  move.l (a1,d0.w*4),(a2)+    ;tx
  966.  move.l (a1,d1.w*4),(a2)+    ;bx
  967.  move.l #0,a5
  968.  bsr SUBDIVIDE
  969.  move.l a5,MAXSUB
  970.  
  971.  movem.l (a7)+,d0-d7/a0-a6
  972.  
  973.  move.w (a1,d0.w*4),d2
  974.  move.w 2(a1,d0.w*4),d3
  975.  move.w (a1,d1.w*4),d4
  976.  move.w 2(a1,d1.w*4),d5
  977.  
  978.  sub.w d2,d4    ;dx
  979.  sub.w d3,d5    ;dy
  980.          ;d7=ddy
  981.  
  982.  subq #1,d7
  983.  swap d4
  984.  clr.w d4
  985.  swap d2
  986.  clr.w d2
  987.  asl.l #2,d4
  988.  ext.l d5
  989.  divs.l d5,d4    ;dx/dy
  990. .putinleftline
  991.  swap d2
  992.  move.w d2,(a2)
  993.  addq #4,a2
  994.  swap d2
  995.  add.l d4,d2
  996.  dbra d7,.putinleftline
  997.  
  998. .noline:
  999.  rts
  1000.  
  1001. MAXSUB: dc.l 0
  1002.  
  1003. SUBDIVIDE:
  1004.  add.l #1,a5
  1005.  move.l (a0),d0
  1006.  move.l d0,d4
  1007.  move.l 4(a0),d1
  1008.  divs d1,d0
  1009.  move.l 8(a0),d2
  1010.  add.l d2,d4
  1011.  and.b #%11111100,d0
  1012.  move.l d2,40+8(a0)
  1013.  add.w #128*4,d0
  1014.  move.l 12(a0),d3
  1015.  asr.l #1,d4    ; middle y
  1016.  move.l d3,40+12(a0)
  1017.  divs d3,d2
  1018.  
  1019.  and.b #%11111100,d2
  1020.  add.w #128*4,d2
  1021.  
  1022.  move.l d1,12(a3,d0.w*4)
  1023.  move.l d3,12(a3,d2.w*4)
  1024.  add.l d1,d3
  1025.  asr.l #1,d3
  1026.  
  1027.  move.l 16(a0),d5
  1028.  move.l d5,(a3,d0.w*4)
  1029.  move.l 24(a0),d6
  1030.  move.l d6,24+40(a0)
  1031.  add.l d6,d5
  1032.  asr.l #1,d5
  1033.  move.l d5,(a3,d2.w*4)
  1034.  
  1035.  move.l 20(a0),d6
  1036.  move.l d6,4(a3,d0.w*4)
  1037.  move.l 28(a0),d7
  1038.  move.l d7,28+40(a0)
  1039.  add.l d7,d6
  1040.  asr.l #1,d6
  1041.  move.l d7,4(a3,d2.w*4)
  1042.  
  1043.  move.l 32(a0),d7
  1044.  move.l d7,8(a3,d0.w*4)
  1045.  move.l 36(a0),d1
  1046.  move.l d1,36+40(a0)
  1047.  add.l d1,d7
  1048.  asr.l #1,d7
  1049.  move.l d1,8(a3,d2.w*4)
  1050.  
  1051.  sub.w d0,d2
  1052.  sub.w #4,d2
  1053.  ble.s .nomore
  1054.  
  1055.  move.l d4,40(a0)  ;my
  1056.  move.l d4,8(a0)
  1057.  
  1058.  move.l d3,40+4(a0)    ;mz
  1059.  move.l d3,12(a0)
  1060.  move.l d5,40+16(a0)
  1061.  move.l d5,16+8(a0)
  1062.  move.l d6,40+20(a0)
  1063.  move.l d6,20+8(a0)
  1064.  move.l d7,40+32(a0)
  1065.  move.l d7,36(a0)
  1066.  
  1067.  add.l #40,a0
  1068.  bsr SUBDIVIDE
  1069.  sub.l #1,a5
  1070.  sub.l #40,a0
  1071.  bsr SUBDIVIDE
  1072.  
  1073. .nomore
  1074.  rts
  1075.  
  1076. **********************************************************
  1077.  
  1078. UVCOORDS: ds.l 4
  1079. ROTATEDPTS: ds.l 4*4
  1080. ONSCREENPTS: ds.l 4
  1081.  
  1082. ZOFF: dc.w 400
  1083.  
  1084. LEFTRIGHT: ds.l 256
  1085.  
  1086. POLYGONDATA:
  1087.  dc.w 11
  1088.  dc.w 3*256+3
  1089.  dc.w -128,-128,128,0,0
  1090.  dc.w 128,-128,128,63,0
  1091.  dc.w 128,128,128,63,63
  1092.  dc.w -128,128,128,0,63
  1093.  
  1094.  dc.w 3*256+2
  1095.  dc.w 128,-128,128,0,0
  1096.  dc.w 128,-128,-128,63,0
  1097.  dc.w 128,128,-128,63,63
  1098.  dc.w 128,128,128,0,63
  1099.  
  1100.  dc.w 2*256+1
  1101.  dc.w -128,-128,-128,0,0
  1102.  dc.w -128,-128,128,63,0
  1103.  dc.w -128,128,128,63,63
  1104.  dc.w -128,128,-128,0,63
  1105.  
  1106.  
  1107.  dc.w 2*256+0
  1108.  dc.w 128,-128,-128,0,0
  1109.  dc.w -128,-128,-128,63,0
  1110.  dc.w -128,128,-128,63,63
  1111.  dc.w 128,128,-128,0,63
  1112.  
  1113.  
  1114.  dc.w $8000+3
  1115.  dc.w -128,-128,-128,0,0
  1116.  dc.w 128,-128,-128,63,0
  1117.  dc.w 128,-128,128,63,63
  1118.  dc.w -128,-128,128,0,63
  1119.  
  1120.  
  1121.  dc.w $8000+1*256
  1122.  dc.w -128,128,128,0,0
  1123.  dc.w 128,128,128,63,0
  1124.  dc.w 128,128,-128,63,63
  1125.  dc.w -128,128,-128,0,63
  1126.  
  1127.  
  1128. *****
  1129.  
  1130.  
  1131.  dc.w 3*256+3
  1132.  dc.w -38-40,-38,-38,0,0
  1133.  dc.w 38+40,-38,-38,63,0
  1134.  dc.w 38+40,38,-38,63,63
  1135.  dc.w -38-40,38,-38,0,63
  1136.  
  1137.  dc.w 3*256+2
  1138.  dc.w -38-40,-38,38,0,0
  1139.  dc.w -38-40,-38,-38,63,0
  1140.  dc.w -38-40,38,-38,63,63
  1141.  dc.w -38-40,38,38,0,63
  1142.  
  1143.  dc.w 2*256+1
  1144.  dc.w 38+40,-38,-38,0,0
  1145.  dc.w 38+40,-38,38,63,0
  1146.  dc.w 38+40,38,38,63,63
  1147.  dc.w 38+40,38,-38,0,63
  1148.  
  1149.  
  1150.  dc.w 2*256+0
  1151.  dc.w 38+40,-38,38,0,0
  1152.  dc.w -38-40,-38,38,63,0
  1153.  dc.w -38-40,38,38,63,63
  1154.  dc.w 38+40,38,38,0,63
  1155.  
  1156.  
  1157.  dc.w $8000+3
  1158.  dc.w -38-40,38,-38,0,0
  1159.  dc.w 38+40,38,-38,63,0
  1160.  dc.w 38+40,38,38,63,63
  1161.  dc.w -38-40,38,38,0,63
  1162.  
  1163.  
  1164.  dc.w $8000+1*256
  1165.  dc.w -38-40,-38,38,0,0
  1166.  dc.w 38+40,-38,38,63,0
  1167.  dc.w 38+40,-38,-38,63,63
  1168.  dc.w -38-40,-38,-38,0,63
  1169.  
  1170. SINETABLE:
  1171.  incbin "ab3:includes/bigsine"
  1172.  
  1173. YANG: dc.w 0
  1174. XANG: dc.w 0
  1175.  
  1176. **********************************************************
  1177.  
  1178. * the definition of the screen - note that in assembler you
  1179. * MUST get the sizes of these fields correct, by consulting either
  1180. * the RKM or the header files
  1181.  
  1182.  
  1183. MyNewScreen    dc.w    0,0        left, top
  1184.         dc.w    320,256        width, height
  1185.         dc.w    8        depth
  1186.         dc.b    0,1        pens
  1187.         dc.w    0        viewmodes
  1188.         dc.w    CUSTOMSCREEN    type
  1189.         dc.l    MyFont        font
  1190.         dc.l    screen_title    title
  1191.         dc.l    0        gadgets
  1192.         dc.l    0        bitmap
  1193.  
  1194. * my font definition
  1195. MyFont    dc.l    font_name
  1196.     dc.w    TOPAZ_SIXTY
  1197.     dc.b    FS_NORMAL
  1198.     dc.b    FPF_ROMFONT
  1199.  
  1200. * the variables
  1201. _IntuitionBase    dc.l    0        Intuition lib pointer
  1202. _GfxBase    dc.l    0        graphics lib pointer
  1203. MyScreen        dc.l    0
  1204. MyWindow        dc.l    0
  1205. MyNewWindow    ds.b    nw_SIZE        a buffer
  1206.  
  1207.  
  1208. * some strings
  1209. int_name    INTNAME
  1210. graf_name    GRAFNAME
  1211. hello_message    dc.b    'Hello World'
  1212.  
  1213. * these are C strings, so have to be null terminated
  1214. screen_title    dc.b    'My Own Screen',0
  1215. font_name    dc.b    'topaz.font',0
  1216. window_title    dc.b    'A Simple Window',0
  1217.  
  1218.  even
  1219.  
  1220. xmouse: dc.w 0
  1221. ymouse: dc.w 0
  1222.  
  1223. spleen: dc.w 0
  1224. lastspleen: dc.w 0
  1225.  
  1226. COPIEDPAL:
  1227.  dc.w 256,0
  1228.  ds.l 3*256
  1229.  ds.l 10
  1230.  
  1231. PALETTEBIT:
  1232. ; incbin "256palette"
  1233. ; dc.w $ffff,$fffe
  1234.  
  1235.  incbin "ab3:includes/256pal"
  1236.  
  1237.  include "ab3:source_4000/chunky.s"
  1238.  
  1239. willy: ds.w 49
  1240.  
  1241.  
  1242. PALS:
  1243.  ds.l 2*49
  1244.  
  1245.  
  1246. FRAME: dc.w 4
  1247. FLIBBLE: dc.w 0
  1248.  
  1249. LIGHTMAP:
  1250.  dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1251.  dc.w 0,31,0,31,0,0,0,0,0,0,0,0,0,0,0,0
  1252.  dc.w 0,31,31,31,0,0,0,0,0,0,0,0,0,0,0,0
  1253.  dc.w 0,31,0,31,0,0,0,0,0,0,0,0,0,0,0,0
  1254.  dc.w 0,31,0,31,0,0,0,0,0,0,0,0,0,0,0,0
  1255.  dc.w 0,31,0,31,0,0,0,0,0,0,0,0,0,0,0,0
  1256.  dc.w 0,31,31,31,0,0,0,0,0,0,0,0,0,0,0,0
  1257.  dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1258.  dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1259.  dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1260.  dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1261.  dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1262.  dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1263.  dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1264.  dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1265.  dc.w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  1266.  
  1267. SMOOTHLIGHTMAP:
  1268.  ds.b 64*64
  1269.  
  1270. FASTBUFFER:
  1271.  dc.l fasty
  1272.  
  1273. fasty: ds.b 320*256
  1274.  
  1275. SUBSTACK: ds.l 10*100
  1276.  
  1277. LEFTUVS: ds.l 4*256
  1278. RIGHTUVS: ds.l 4*256
  1279.  
  1280. WORLD: incbin "ab3:includes/world"
  1281.  
  1282. TWEEN: incbin "ab3:includes/tweenbrightfile"
  1283.  
  1284. TEXTURES: incbin "ab3:includes/newtexturemaps"
  1285.  
  1286.  SECTION BGDROP,code_c
  1287.  
  1288. RAWSCRN:
  1289.  ds.l 2560*8
  1290.